﻿Module Module1

    Sub Main()
        Console.WriteLine("Hello World Visual!")

        Dim cki As ConsoleKeyInfo
        Do
            cki = Console.ReadKey()

        Loop While cki.Key <> ConsoleKey.Escape

    End Sub

End Module
